home *** CD-ROM | disk | FTP | other *** search
- -- card: 6113 from stack: in
- -- bmap block id: 6831
- -- flags: 4000
- -- background id: 6395
- -- name: Loan
- ----- HyperTalk script -----
- on openCard
- global SN
- hide menuBar
- if SN is not empty then
- put field "Model" of card SN into card field "Model" of card "Loan"
- put field "Make" of card SN into card field "Make" of card "Loan"
- put field "Total" of card SN into card field "ListPrice" of card "Loan"
- put field "dTotal" of card SN into card field "DisPrice" of card "Loan"
- end if
- end openCard
-
- on closeCard
- repeat with i = 1 to the number of card fields
- put empty into card field i
- end repeat
- repeat with i = 1 to 3
- put empty into field i
- end repeat
- put empty into field 5
- end closeCard
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=3 top=1 right=43 bottom=60
- -- title width / last selected line: 0
- -- icon id / first selected line: 20098 / 20098
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: New Button
- ----- HyperTalk script -----
- on mouseUp
- go to stack "Home"
- end mouseUp
-
-
-
-
- -- part 2 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=180 top=295 right=319 bottom=317
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 21
- -- text size: 18
- -- style flags: 0
- -- line height: 24
- -- part name: CL
-
-
- -- part 5 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=61 top=20 right=47 bottom=465
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 21
- -- text size: 24
- -- style flags: 256
- -- line height: 32
- -- part name:
-
-
- -- part 6 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=2 top=49 right=67 bottom=230
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Model
-
-
- -- part 7 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=232 top=49 right=67 bottom=366
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Make
-
-
- -- part 8 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=441 top=49 right=67 bottom=507
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: ListPrice
-
-
- -- part 9 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=177 top=69 right=87 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: DisPrice
-
-
- -- part 10 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=177 top=86 right=104 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Add'l Charges
-
-
- -- part 11 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=177 top=103 right=121 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: TradeIn
-
-
- -- part 12 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=177 top=120 right=138 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: TaxRate
-
-
- -- part 13 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=177 top=137 right=155 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Taxes
-
-
- -- part 14 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=177 top=154 right=172 bottom=346
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Downpayment
-
-
- -- part 15 (button)
- -- low flags: 00
- -- high flags: A003
- -- rect: left=349 top=199 right=221 bottom=497
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: CALCULATE PRINCIPLE
- ----- HyperTalk script -----
- on mouseUp
- put card field "taxRate" into TR
- put card field "DisPrice" into DP
- put card field "Add'l Charges" into AC
- put card field "DownPayment" into PAY
- put card field "TradeIn" into TI
- put (DP + AC - TI) into CO
- put (CO * TR)/100 into card field "Taxes"
- put card field "Taxes" into TX
- put (CO + TX - PAY) into field "A"
- end mouseUp
-
-
-
- -- part 16 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=450 top=6 right=44 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 2162 / 2162
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: GoBack
- ----- HyperTalk script -----
- on mouseUp
- global SN
- go to card SN
- end mouseUp
-
-
-
- -- part contents for background part 4
- ----- text -----
- 2244.891951
-
- -- part contents for background part 8
- ----- text -----
- Principle $ 
- # of Payments 
- Interest Rate 
- Payment if APR $
- Payment if Car Loan